home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / CHDRIVE.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  291b  |  25 lines
  1. $include "regnames.inc"
  2. cls
  3. print "cd d:\"
  4.  
  5. reg %ax,&H0E*256
  6. reg %dx,4
  7. call interrupt &H21
  8. ?curdir$
  9.  
  10. x$=dir$("*.*",16)
  11. while x$<>""
  12.  ?x$
  13.  x$=dir$
  14. wend
  15.  
  16. reg %ax,&H0E*256
  17. reg %dx,2
  18. call interrupt &H21
  19. ?"-----------------------------------------------"
  20. ?curdir$
  21.  
  22. end
  23.  
  24.  
  25.